home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / t_os / bcmc1 / bcmc1.bas next >
BASIC Source File  |  1991-10-18  |  2KB  |  38 lines
  1. 10 CLS:COLOR 7,0
  2. 20 LOCATE 5, 1:PRINT "Ｂｌａｃｋ　Ｃｏｌｏｒ　Ｍｏｎｏ　Ｃｏｎｖａｒｔｅｒ　Ｖ１．１Ｌ１０"
  3. 30 LOCATE 15, 0:PRINT "Ｂｌａｃｋ　Ｔｏｏｌ　Ｓｅｒｉｅｓ　ｖｏｌ．４"
  4. 40 WAIT 100
  5. 10000 CLS:SCREEN@ 1:COLOR 7,0:CLEAR ,,,600000:DEFINT A-Z:DIM A(320*240),B(320*240)
  6. 10010 ON ERROR GOTO 0:INPUT "読み込むドライブ名を入力してください",IN_D$
  7. 10020 INPUT "読み込むパス名をで入力して下さい(最後に￥を付けてください)",IN_P$:IN_P$=IN_D$+":"+IN_P$
  8. 10030 FILES IN_P$
  9. 10040 INPUT "よろしいですか";YN$
  10. 10050 IF YN$="N" OR YN$="n" THEN CLS:GOTO 10010 ELSE IF YN$="Y" OR YN$="y" THEN 10060 ELSE PRINT "ちゃんと入力してください":GOTO 10040
  11. 10060 INPUT "読み込むファイル名を８文字以内で入力して下さい。(拡張子はいりません)",IN_F$:IF LEN(IN_F$)>8 THEN 10100 ELSE IN_F$=IN_F$+".TIF"
  12. 10070 ON ERROR GOTO 10090:COLOR 0,0:FILES IN_P$+IN_F$:ON ERROR GOTO 0:COLOR 7,0
  13. 10080 GOTO 10110
  14. 10090 COLOR 7,0:PRINT "このファイルは存在していません。":RESUME 10010
  15. 10100 PRINT "ファイル名が、８文字を越えました。入力し直して下さい。":GOTO 10010
  16. 10110 INPUT "書き込むドライブ名を入力してください",OUT_D$
  17. 10120 INPUT "書き込むパス名を入力してください。(最後に￥を付けてください)",OUT_P$:OUT_P$=OUT_D$+":"+OUT_P$
  18. 10130 FILES OUT_P$
  19. 10140 INPUT "よろしいですか？",YN$
  20. 10150 IF YN$="N" OR YN$="n" THEN CLS:GOTO 10110 ELSE IF YN$="Y" OR YN$="y" THEN 10160 ELSE PRINT "ちゃんと入力してください":GOTO 10140
  21. 10160 INPUT "書き込むファイル名を８文字以内で入力してください。(拡張子はいりません)",OUT_F$
  22. 10170 IF LEN(OUT_F$)>8 THEN 10110 ELSE OUT_F$=OUT_F$+".TIF"
  23. 10180 ON ERROR GOTO 10210
  24. 10190 KILL OUT_P$+OUT_F$
  25. 10200 GOTO 10220
  26. 10210 RESUME 10220
  27. 10220 '本文
  28. 10230 COLOR 7,0:CLS:LOAD@ IN_P$+IN_F$:GET@A (0,0)-(319,239),A
  29. 10240 FOR I&=0 TO 76799
  30. 10250 GE=A(I&) AND &H7FFF:B=GE AND 31:GE=GE\32:R=GE AND 31:GE=GE\32:G=GE AND 31:C=(R+G+B)/3:B(I&)=C*2^10+C*2^5+C
  31. 10260 IF I& MOD 320=0 THEN BEEP
  32. 10270 NEXT I&:PUT@A (0,0)-(319,239),B,PSET
  33. 10280 SAVE@ OUT_P$+OUT_F$,(0,0)-(320,240)
  34. 10290 CLS
  35. 10300 INPUT "もう一度、処理を行いますか？",YN$
  36. 10310 IF YN$="N" OR YN$="n" THEN CLS:END ELSE IF YN$="Y" OR YN$="y" THEN 10010 ELSE PRINT "ちゃんと入力してください":GOTO 10300
  37. 10320 GOTO 10320
  38.